home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / MATHS / RLAB / RLAB125.ZIP / !RLaB / rlib / symm < prev    next >
Text File  |  1994-02-21  |  232b  |  11 lines
  1. //
  2. // SYMM  SYMM(A) is the symmetric (Hermitian) part of A, (A+A')/2.
  3. //       It is the nearest symmetric (Hermitian) matrix to A in both the
  4. //       2- and the Frobenius norms.
  5. //
  6.  
  7. symm = function( A )
  8. {
  9.   return (A + A')./2;
  10. };
  11.